home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCSHELL.DEF < prev    next >
Encoding:
Modula Definition  |  1991-02-09  |  959 b   |  33 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%F _fdata *)
  3. (*# call(seg_name => null) *)
  4. (*%E *)
  5. (*# module(implementation=>on) *)
  6. (*# data(seg_name => null) *)
  7. (*# call(o_a_copy => off) *)
  8. DEFINITION MODULE QCshell;
  9.  
  10.                      (* This JPI Modula-2 module is part of *)
  11.  
  12.                       (* QC -- a communications program *)
  13.                              (* by Carl Neiburger *)
  14.                               (* 169 N. 25th St.*)
  15.                           (* San Jose, Calif. 95116 *)
  16.  
  17.                          (* CompuServe No. 72336,2257 *)
  18.  
  19. CONST
  20.     GifTempName = '$$$.GIF';
  21.  
  22. PROCEDURE ShowSaveGif;
  23. (* This procedure
  24.    1: Asks user if GIF should be displayed. If so, it shells to a 
  25.       GIF display program.
  26.    2: Asks user if a GIF picture, downloaded as '$$$.GIF', should 
  27.       be renamed for permanent retention. *)
  28.  
  29. PROCEDURE DoShell(): CARDINAL;
  30. (* This does a simple shell to DOS, using Lib.Exec *)
  31.  
  32. END QCshell.
  33.